home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Magazine / ActiveShareware / BackMan / InstallBackMan < prev    next >
Encoding:
Text File  |  1998-10-07  |  6.1 KB  |  267 lines
  1. ;**
  2. ;**  $VER: Install 1.2 (17.11.96)
  3. ;**  Copyright © 1995-1996 Flavio Stanchina
  4. ;**
  5.  
  6. (set #cat-source "Locale/Catalogs")
  7. (set #cat-dest   "LOCALE:Catalogs")
  8.  
  9. (procedure P_copylang
  10.  (foreach (tackon #cat-source #lang) "#?.catalog"
  11.   (copylib (source (tackon (tackon #cat-source #lang) @each-name))
  12.            (dest (tackon #cat-dest #lang))
  13.            (prompt #inst-cat)
  14.   )
  15.  )
  16. )
  17.  
  18. ;**
  19. ;**  English strings
  20. ;**
  21.  
  22. (if (= @language "english") (
  23.   (set #bad-kick "This program requires kickstart V39 (3.0) or higher.")
  24.   (set #bad-mui "You must install MUI 3.3 or higher before installing BackMan!")
  25.   (set #inst-bin "Installing binaries")
  26.   (set #inst-key "Installing keyfile")
  27.   (set #inst-cat "Installing catalog files")
  28.   (set #inst-doc "Installing documentation")
  29.   (set #inst-hlp "Installing online help")
  30.   (set #inst-xpk "Installing XPK libraries:\n")
  31.   (set #choose-dest "Choose where BackMan's drawer will be created")
  32.   (set #choose-doclang "Choose the documentation's language")
  33.   (set #choose-catlang "Choose which catalogs you want to install")
  34.   (set #ask-doc "Do you want to install the documentation?")
  35.   (set #welcome "Welcome registered user! Thanks for your support!")
  36.   (set #language "English") ;Default doc language
  37.   (set #langnum 0)
  38. ))
  39.  
  40. ;**
  41. ;**  Italian strings
  42. ;**
  43.  
  44. (if (= @language "italiano") (
  45.   (set #bad-kick "Questo programma richiede il kickstart V39 (3.0) o superiore.")
  46.   (set #bad-mui "Devi installare MUI 3.3 o superiore prima di installare BackMan!")
  47.   (set #inst-bin "Installazione dei programmi")
  48.   (set #inst-key "Installazione della chiave")
  49.   (set #inst-cat "Installazione dei cataloghi")
  50.   (set #inst-doc "Installazione della documentazione")
  51.   (set #inst-hlp "Installazione dell'help in linea")
  52.   (set #inst-xpk "Installazione delle librerie XPK:\n")
  53.   (set #choose-dest "Scegli dove verrà creato il cassetto di BackMan")
  54.   (set #choose-doclang "Scegli la lingua della documentazione")
  55.   (set #choose-catlang "Scegli quali cataloghi vuoi installare")
  56.   (set #ask-doc "Vuoi installare la documentazione?")
  57.   (set #welcome "Benvenuto utente registrato! Grazie per il tuo supporto!")
  58.   (set #language "Italiano") ;Default doc language
  59.   (set #langnum 1)
  60. ))
  61.  
  62. ;**
  63. ;**  German strings
  64. ;**
  65.  
  66. (if (= @language "deutsch") (
  67.   (set #bad-kick "BackMan benötigt Kickstart V39 oder höher")
  68.   (set #bad-mui "Mui 3.3 oder höher MUSS INSTALLIERT SEIN bevor BackMan installiert wird!!")
  69.   (set #inst-bin "Installiere BackMan binar daten")
  70.   (set #inst-key "Installiere BackMan Keyfile")
  71.   (set #inst-cat "Installiere BackMan catalog")
  72.   (set #inst-doc "Installiere BackMan Dokumente")
  73.   (set #inst-hlp "Installiere BackMan online hilfe")
  74.   (set #inst-xpk "Installiere XPK Librarys")
  75.   (set #choose-dest "Wähle bitte wo das BackMan Verzeichnis erstellt werden soll")
  76.   (set #choose-doclang "Wähle bitte die Sprache für die Dokumente")
  77.   (set #choose-catlang "Wähle bitte welche Cataloge installiert werden sollen")
  78.   (set #ask-doc "Soll die Dokumentation mit installiert werden?")
  79.   (set #welcome "Willkommen registrierte Benutzer! Danke für eure Unterstützung!")
  80.   (set #language "Deutsch") ;Default doc language
  81.   (set #langnum 2)
  82. ))
  83.  
  84. ;**
  85. ;**  Startup checks
  86. ;**
  87.  
  88. (if (< (/ (getversion) 65536) 39) (
  89.   (abort #bad-kick)
  90. ))
  91.  
  92. ;** This is tricky: try and find out MUI version.
  93. ;** Commented out 'cause it doesn't seem to work at all.
  94. ;(if (exists "MUI:Libs/muimaster.library")
  95. ; (set #mui-version (getversion "MUI:Libs/muimaster.library"))
  96. ; (if (exists "LIBS:muimaster.library")
  97. ;  (set #mui-version (getversion "LIBS:muimaster.library"))
  98. ;  (set #mui-version (getversion "muimaster.library" (resident)))
  99. ; )
  100. ;)
  101. ;
  102. ;(if (< (/ #mui-version 65536) 14) (
  103. ;  (abort #bad-mui)
  104. ;))
  105.  
  106. ;**
  107. ;**  Installing BackMan!
  108. ;**
  109.  
  110. (welcome)
  111.  
  112. (set @default-dest
  113.   (askdir
  114.     (prompt #choose-dest)
  115.     (help @askdir-help)
  116.     (default @default-dest)
  117.   )
  118. )
  119.  
  120. (set @default-dest (tackon @default-dest "BackMan"))
  121.  
  122. ;**
  123. ;**  Copy binaries
  124. ;**
  125.  
  126. (complete 0)
  127.  
  128. (copyfiles
  129.   (prompt #inst-bin)
  130.   (source "BackMan")
  131.   (dest @default-dest)
  132. )
  133.  
  134. (complete 10)
  135.  
  136. (copyfiles
  137.   (prompt #inst-bin)
  138.   (source "BackManMUI")
  139.   (dest @default-dest)
  140.   (infos)
  141. )
  142.  
  143. (complete 20)
  144.  
  145. (if (exists "BackMan.Key") (
  146.   (message #welcome)
  147.   (copyfiles
  148.     (prompt #inst-key)
  149.     (source "BackMan.Key")
  150.     (dest @default-dest)
  151.   )
  152. ))
  153.  
  154. ;**
  155. ;**  Copy catalogs
  156. ;**
  157.  
  158. (complete 30)
  159.  
  160. (if (exists "LOCALE:" (noreq)) (
  161.   (if (> @user-level 0) (
  162.     (set #cat-lang
  163.       (askoptions
  164.         (prompt #choose-catlang)
  165.         (help @askoptions-help)
  166.         (choices "Italiano" "Deutsch")
  167.       )
  168.     )
  169.   )(
  170.     (set #cat-lang -1)
  171.   ))
  172.  
  173.   (if (not (exists #cat-dest)) (makedir #cat-dest))
  174.  
  175.   (if (bitand #cat-lang 1) ((set #lang "italiano") (P_copylang)))
  176.   (if (bitand #cat-lang 2) ((set #lang "deutsch" ) (P_copylang)))
  177. ))
  178.  
  179. ;**
  180. ;**  Copy docs
  181. ;**
  182.  
  183. (complete 40)
  184.  
  185. (if (OR (< @user-level 2) (askbool (prompt #ask-doc) (help @askbool-help))) (
  186.   (if (> @user-level 0) (
  187.     (set #language
  188.       (select
  189.         (askchoice
  190.           (prompt #choose-doclang)
  191.           (help @askchoice-help)
  192.           (choices "English" "Italiano")
  193.           (default #langnum)
  194.         )
  195.         "English" "Italiano"
  196.       )
  197.     )
  198.   ))
  199.  
  200.   (complete 50)
  201.  
  202.   (copyfiles
  203.     (prompt #inst-doc)
  204.     (source "Docs")
  205.     (dest @default-dest)
  206.     (choices "RegistrationForm" "History")
  207.     (files)
  208.     (infos)
  209.   )
  210.  
  211.   (complete 60)
  212.  
  213.   (copyfiles
  214.     (prompt #inst-doc)
  215.     (source (tackon "Docs" #language))
  216.     (dest @default-dest)
  217.     (all)
  218.     (infos)
  219.   )
  220.  
  221.   (complete 70)
  222.  
  223.   (copyfiles
  224.     (prompt #inst-hlp)
  225.     (source (tackon "Help" #language))
  226.     (dest @default-dest)
  227.     (all)
  228.     (infos)
  229.   )
  230. ))
  231.  
  232. ;**
  233. ;**  Copy XPK libraries
  234. ;**
  235.  
  236. (if (exists "Libs/xpkmaster.library") (
  237.   (complete 80)
  238.   (copylib
  239.     (prompt #inst-xpk "xpkmaster.library")
  240.     (help @copylib-help)
  241.     (source "Libs/xpkmaster.library")
  242.     (dest "LIBS:")
  243.     (optional nofail force)
  244.   )
  245.  
  246.   (complete 90)
  247.   (foreach "Libs/Compressors" "xpk????.library" (
  248.     (copylib
  249.       (prompt #inst-xpk @each-name)
  250.       (help @copylib-help)
  251.       (source (tackon "Libs/Compressors" @each-name))
  252.       (dest "LIBS:Compressors")
  253.       (optional nofail force)
  254.     )
  255.   ))
  256. ))
  257.  
  258. ;**
  259. ;**  Installation complete!
  260. ;**
  261.  
  262. (complete 100)
  263.  
  264. (exit)
  265.  
  266. ;*** EOF ***
  267.